home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / baud173c.zip / RSB3BAUD.MRG < prev    next >
Text File  |  1992-02-29  |  4KB  |  92 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB3.BAS to produce RBBSSUB3.NEW
  3. * RBBSSUB3.BAS:  Date 9-5-1991  Size 118524 bytes
  4. * ------------[ Created 02-29-1992 ]------------
  5. 43070 ZActiveMessageFile$ = ZOrigMsgFile$
  6.       ZSubParm = 3
  7.       CALL FileLock
  8.       CALL OpenMsg
  9.       FIELD 1, 128 AS ZMsgRec$
  10.       GET 1,ZNodeRecIndex
  11.       IF ZGlobalSysop THEN _
  12.          MID$(ZMsgRec$,1,30) = "SYSOP" + SPACE$(25)
  13.       MID$(ZMsgRec$,40,2) = STR$(ZExitToDoors)
  14.       MID$(ZMsgRec$,42,2) = STR$(ZEightBit)
  15.       MID$(ZMsgRec$,44,2) = STR$(ZBPS)
  16.       MID$(ZMsgRec$,46,2) = STR$(ZUpperCase)
  17.       MID$(ZMsgRec$,48,5) = MKS$(ZNumDnldBytes!) + MID$(STR$(-ZBatchTransfer),2)
  18.       MID$(ZMsgRec$,53,2) = STR$(ZWasGR)
  19.       MID$(ZMsgRec$,55,2) = STR$(ZSysop)
  20.       MID$(ZMsgRec$,65,3) = CHR$(VAL(LEFT$(ZTimeLoggedOn$,2))) + _
  21.                                    CHR$(VAL(MID$(ZTimeLoggedOn$,4,2))) + _
  22.                                    CHR$(VAL(MID$(ZTimeLoggedOn$,7,2)))
  23.       MID$(ZMsgRec$,72,2) = STR$(ZPrivateDoor)
  24.       MID$(ZMsgRec$,74,1) = MID$(STR$(ZTransferFunction),2,1)
  25.       MID$(ZMsgRec$,75,1) = ZWasFT$
  26.       MID$(ZMsgRec$,113,2) = MKI$(CINT(ZTimeCredits!)/60)
  27.       MID$(ZMsgRec$,79,8) = LEFT$(ZDooredTo$+"        ",8)
  28.       MID$(ZMsgRec$,91,2) = STR$(ZReliableMode)
  29.       CALL BreakFileName (ZCurPUI$,ZOutTxt$,ZUserIn$,ZWasZ$,ZFalse)
  30.       MID$(ZMsgRec$,93,8) = ZUserIn$ + SPACE$(8 - LEN(ZUserIn$))
  31.       IF ZLocalUser THEN _
  32.          ZWasZ$ = ZCarriageReturn$ + ZCarriageReturn$ _
  33.       ELSE ZWasZ$ = " 0"
  34.       MID$(ZMsgRec$,101,2) = ZWasZ$
  35.       MID$(ZMsgRec$,103,2) = STR$(ZLocalUserMode)
  36.       ZConfName$ = LEFT$(ZConfName$,INSTR(ZConfName$ + " "," ") - 1)
  37.       MID$(ZMsgRec$,105,8) = ZConfName$ + SPACE$(8 - LEN(ZConfName$))
  38.       MID$(ZMsgRec$,115,1) = MID$(STR$(ZAutoLogoffReq),2,1)
  39.       MID$(ZMsgRec$,117,2) = STR$(ZMenuIndex)
  40.       MID$(ZMsgRec$,119,2) = LEFT$(DATE$,2)
  41.       MID$(ZMsgRec$,121,2) = MID$(DATE$,4,2)
  42.       MID$(ZMsgRec$,123,2) = RIGHT$(DATE$,2)
  43.       MID$(ZMsgRec$,125,2) = LEFT$(TIME$,2)
  44.       MID$(ZMsgRec$,127,2) = MID$(TIME$,4,2)
  45. ' ***   Save additional parameters for door restoral
  46.       CALL OpenOutW (ZNodeWorkDrvPath$+"DRST"+ZNodeFileID$+".DEF")
  47.       CALL PrintWorkA (STR$(ZLimitMinsPerSession))
  48.       CALL PrintWorkA (ZWasNG$)
  49.       CALL PrintWorkA (ZIndivValue$)
  50.       CALL PrintWorkA (ZOrigDateTimeOn$)
  51.       CALL PrintWorkA (ZOrigTimeLoggedOn$)
  52.       CALL PrintWorkA (STR$(ZUserFileIndex))
  53.       CALL PrintWorkA (ZCBaud$)                                      ' RM022301
  54.       CLOSE 2
  55. 44003 ZUserLogonTime! = VAL(HourLoggedOn$) * 3600! + _
  56.                         VAL(MinLoggedOn$) * 60! + _
  57.                         VAL(SecLoggedOn$)
  58.       HourLoggedOn$ = ""
  59.       MinLoggedOn$ = ""
  60.       SecLoggedOn$ = ""
  61.       IF ZMinsPerSession < 1 THEN _
  62.          ZMinsPerSession = 3
  63.       IF NOT ZEightBit THEN _
  64.          OUT ZLineCntlReg,&H1A
  65.       IF LEFT$(ZMsgRec$,7) = "SYSOP  " THEN _
  66.          ZFirstName$ = ZSysopPswd1$ : _
  67.          ZActiveUserName$ = ZSysopPswd1$ + " " + ZSysopPswd2$ _
  68.       ELSE ZFirstNameEnd = INSTR(ZMsgRec$," ") : _
  69.            ZLastNameEnd = INSTR(ZFirstNameEnd + 1,ZMsgRec$ + " ","  ") : _
  70.            ZFirstName$ = LEFT$(ZMsgRec$,ZFirstNameEnd-1) : _
  71.            ZLastName$ = MID$(ZMsgRec$,ZFirstNameEnd + 1,ZLastNameEnd - (ZFirstNameEnd + 1)) : _
  72.            ZActiveUserName$ = MID$(ZFirstName$ + " " + ZLastName$,1,31)
  73.       ZWasZ$ = ZFirstName$
  74.       CALL OpenWork (2,ZNodeWorkDrvPath$+"DRST"+ZNodeFileID$+".DEF")
  75.       CALL ReadDir (2,1)
  76.       ZLimitMinsPerSession = VAL (ZOutTxt$)
  77.       CALL ReadDir (2,1)
  78.       ZWasNG$ = ZOutTxt$
  79.       CALL ReadDir (2,1)
  80.       ZIndivValue$ = ZOutTxt$
  81.       CALL ReadDir (2,1)
  82.       ZOrigDateTimeOn$ = ZOutTxt$
  83.       CALL ReadDir (2,1)
  84.       ZOrigTimeLoggedOn$ = ZOutTxt$
  85.       CALL ReadDir (2,1)
  86.       ZUserFileIndex = VAL(ZOutTxt$)
  87.       CALL ReadDir (2,1)                                             ' RM022301
  88.       ZCBaud$ = ZOutTxt$                                             ' RM022301
  89.       CLOSE 2
  90.       CALL DoorReturn
  91.       END SUB
  92.